home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppyshop 2
/
Floppyshop - 2.zip
/
Floppyshop - 2.iso
/
diskmags
/
4671-5.790
/
dmg-4695
/
giveway.17
/
source
/
22222222.bas
(
.txt
)
next >
Wrap
Atari STOS Basic
|
1987-04-21
|
24KB
|
88 lines
10 KEY
100 GOSUB
110 VARNAME
120 VARNAME
130 GOSUB
140 VARNAME
150 IF
160 IF
170 REPEAT
180 SCREEN COPY
190 SCREEN COPY
20 MODE
200 SCREEN$
210 SCREEN COPY
220 INC
230 IF
240 SCREEN SWAP
250 IF
260 IF
270 IF
280 SCREEN COPY
290 IF
30 HIDE
300 IF
310 IF
320 IF
330 UNTIL
340 REM set up the letter data
350 VARNAME
360 FOR
370 FOR
380 VARNAME
390 INC
40 CURS
400 NEXT
410 VARNAME
420 RETURN
430 REM sort out shifter font!! using sprite file!
440 REM ~~~~~~~~
450 FOR
460 REM first frame
470 CLS
480 UPDATE
490 VARNAME
5 REM Checked GFF א™
50 REM set up screens for font
500 NEXT
510 SPRITE
520 RETURN
530 REM turn sprite bank into a screen
540 MODE
550 RESERVE
560 HIDE
570 CURS
580 KEY
590 CLS
60 GOSUB
600 VARNAME
610 REM ~~~~~~~~~~~~~~~~~~~
620 FOR
630 SPRITE
640 REDRAW
650 PUT SPRITE
660 VARNAME
670 IF
680 NEXT
690 SCREEN COPY
70 DIM
700 RETURN
710 REM set up screen and colours
720 VARNAME
730 FOR
740 RETURN
750 REM TEXT MESSAGE GOES HERE
760 VARNAME
770 FOR
780 VARNAME
790 IF
80 LOGIC
800 IF
810 IF
820 IF
830 IF
840 MID$
850 NEXT
860 RETURN
90 VARNAME